home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 050a.dms / 050a.adf / EXAMPLE_PROGRAMS / example19.AMOS / example19.amosSourceCode
AMOS Source Code  |  1992-02-26  |  1KB  |  77 lines
  1. '==================
  2. Rem EXAMPLE20.Amos 
  3. '==================
  4.  
  5. Rem examples of box,draw,plot,circle xgr,ygr 
  6.  
  7.  
  8. Screen Open 0,320,250,16,Lowres
  9. Flash Off : Curs Off : Paper 0 : Hide : Cls 0
  10.  
  11.  
  12. Rem  pixels
  13. '----------
  14. Centre "NOW PLOTTING 10000 RANDOM PIXELS"
  15. For A=1 To 10000
  16. Plot Rnd(319),Rnd(199),Rnd(15)
  17. Next A
  18. Cls 0
  19.  
  20.  
  21. Rem draw 
  22. '------- 
  23. Centre "Now a simple effect using DRAW"
  24. Wait 100
  25. For X=0 To 319 : Ink Rnd(4)+1 : Draw 0,199 To X,0 : Next X
  26. For Y=1 To 199 : Ink Rnd(14)+1 : Draw 0,199 To 319,Y : Next Y
  27. Wait 100
  28. Cls 0
  29.  
  30.  
  31. Rem boxes
  32. '--------
  33. Centre "NOW 500 BOXES"
  34. For A=1 To 500
  35. Ink Rnd(15) : X1=Rnd(320) : Y1=Rnd(200) : Box X1,Y1 To X1+Rnd(50),Y1+Rnd(50)
  36. Wait Vbl 
  37. Next A
  38. Wait 100
  39. Cls 0
  40.  
  41.  
  42. Rem bar
  43. '------
  44. Ink 5
  45. Bar 80,100 To 220,200
  46. Paper 5
  47. Locate 12,18 : Print "THIS IS A BAR"
  48. Wait 100
  49. Cls 0
  50.  
  51.  
  52. Rem time tunnel
  53. '--------------
  54. Paper 0 : Locate 0,0 : Print "THE TIME TUNNEL USING CIRCLES"
  55. Ink Rnd(15)
  56. For A=1 To 255
  57. Ink Rnd(14)+1
  58. Circle 100,100,A
  59. Next A
  60. Wait 100
  61. Cls 0
  62.  
  63.  
  64. Rem graphics cursor
  65. '------------------
  66. Ink 4 : B=1 : For A=0 To 250
  67. Plot A,B
  68. Inc B
  69. Locate 0,24 : Print "XGR=";Xgr;"   YGR=";Ygr
  70. Wait 2
  71. Next A
  72.  
  73.  
  74. Rem end
  75. '------- 
  76. Wait 100
  77. Edit